home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
ddj0897.zip
/
DYN401.ZIP
/
class
/
ushrtary.c
< prev
next >
Wrap
C/C++ Source or Header
|
1997-04-16
|
8KB
|
320 lines
/* Copyright (c) 1993-1996 Algorithms Corporation */
/* All rights reserved. */
/* This file automatically generated by dpp - do not edit */
#define DPP_STRATEGY 2
#define DPP_FASTWIDE 0
#line 18 "ushrtary.d"
#include "array1.h"
#define CLASS UnsignedShortArray_c
#define ivType UnsignedShortArray_iv_t
#include "generics.h"
object UnsignedShortArray_c;
#line 26 "ushrtary.d"
#define TYPE unsigned short
static gIndex_t _index;
cvmeth objrtn UnsignedShortArray_cvm_vNew(object self, va_list _rest_)
{
unsigned rank = va_arg(_rest_, unsigned);
#line 34 "ushrtary.d"
static gNewArray_t cnew = NULL;
MAKE_REST(rank);
if (!cnew)
cnew = cmcPointer(Array, gNewArray);
return cnew(self, AT_USHT, rank, _rest_);
}
#line 48 "ushrtary.c"
static objrtn UnsignedShortArray_cfm_vNew(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_cvm_vNew(self, _rest_);
}
#line 42 "ushrtary.d"
ivmeth char UnsignedShortArray_ivm_vCharValue(object self, va_list _rest_)
{
MAKE_REST(self);
return (char) *((TYPE *) _index(self, _rest_));
}
#line 66 "ushrtary.c"
static char UnsignedShortArray_ifm_vCharValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vCharValue(self, _rest_);
}
#line 48 "ushrtary.d"
ivmeth short UnsignedShortArray_ivm_vShortValue(object self, va_list _rest_)
{
MAKE_REST(self);
return (short) *((TYPE *) _index(self, _rest_));
}
#line 84 "ushrtary.c"
static short UnsignedShortArray_ifm_vShortValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vShortValue(self, _rest_);
}
#line 54 "ushrtary.d"
ivmeth unsigned short UnsignedShortArray_ivm_vUnsignedShortValue(object self, va_list _rest_)
{
MAKE_REST(self);
return (unsigned short) *((TYPE *) _index(self, _rest_));
}
#line 102 "ushrtary.c"
static unsigned short UnsignedShortArray_ifm_vUnsignedShortValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vUnsignedShortValue(self, _rest_);
}
#line 60 "ushrtary.d"
ivmeth long UnsignedShortArray_ivm_vLongValue(object self, va_list _rest_)
{
MAKE_REST(self);
return (long) *((TYPE *) _index(self, _rest_));
}
#line 120 "ushrtary.c"
static long UnsignedShortArray_ifm_vLongValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vLongValue(self, _rest_);
}
#line 66 "ushrtary.d"
ivmeth double UnsignedShortArray_ivm_vDoubleValue(object self, va_list _rest_)
{
MAKE_REST(self);
return (double) *((TYPE *) _index(self, _rest_));
}
#line 138 "ushrtary.c"
static double UnsignedShortArray_ifm_vDoubleValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vDoubleValue(self, _rest_);
}
#line 72 "ushrtary.d"
ivmeth objrtn UnsignedShortArray_ivm_vChangeValue(object self, va_list _rest_)
{ object val = va_arg(_rest_, object);
MAKE_REST(val);
ChkArg(val, 2);
*((TYPE *) _index(self, _rest_)) = gUnsignedShortValue(val);
return self;
}
#line 158 "ushrtary.c"
static objrtn UnsignedShortArray_ifm_vChangeValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vChangeValue(self, _rest_);
}
#line 80 "ushrtary.d"
ivmeth objrtn UnsignedShortArray_ivm_vChangeCharValue(object self, va_list _rest_)
{ int val = va_arg(_rest_, int);
MAKE_REST(val);
*((TYPE *) _index(self, _rest_)) = (TYPE) val;
return self;
}
#line 177 "ushrtary.c"
static objrtn UnsignedShortArray_ifm_vChangeCharValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vChangeCharValue(self, _rest_);
}
#line 87 "ushrtary.d"
ivmeth objrtn UnsignedShortArray_ivm_vChangeShortValue(object self, va_list _rest_)
{ int val = va_arg(_rest_, int);
MAKE_REST(val);
*((TYPE *) _index(self, _rest_)) = (TYPE) val;
return self;
}
#line 196 "ushrtary.c"
static objrtn UnsignedShortArray_ifm_vChangeShortValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vChangeShortValue(self, _rest_);
}
#line 94 "ushrtary.d"
ivmeth objrtn UnsignedShortArray_ivm_vChangeUShortValue(object self, va_list _rest_)
{ unsigned val = va_arg(_rest_, unsigned);
MAKE_REST(val);
*((TYPE *) _index(self, _rest_)) = (TYPE) val;
return self;
}
#line 215 "ushrtary.c"
static objrtn UnsignedShortArray_ifm_vChangeUShortValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vChangeUShortValue(self, _rest_);
}
#line 101 "ushrtary.d"
ivmeth objrtn UnsignedShortArray_ivm_vChangeLongValue(object self, va_list _rest_)
{ long val = va_arg(_rest_, long);
MAKE_REST(val);
*((TYPE *) _index(self, _rest_)) = (TYPE) val;
return self;
}
#line 234 "ushrtary.c"
static objrtn UnsignedShortArray_ifm_vChangeLongValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vChangeLongValue(self, _rest_);
}
#line 108 "ushrtary.d"
ivmeth objrtn UnsignedShortArray_ivm_vChangeDoubleValue(object self, va_list _rest_)
{ double val = va_arg(_rest_, double);
MAKE_REST(val);
*((TYPE *) _index(self, _rest_)) = (TYPE) val;
return self;
}
#line 253 "ushrtary.c"
static objrtn UnsignedShortArray_ifm_vChangeDoubleValue(object self, ...)
{
va_list _rest_;
va_start(_rest_, self);
return UnsignedShortArray_ivm_vChangeDoubleValue(self, _rest_);
}
#line 115 "ushrtary.d"
static void init_class(void)
{
_index = imcPointer(Array, gIndex);
}
#line 269 "ushrtary.c"
objrtn UnsignedShortArray_initialize(void)
{
static CRITICALSECTION cs;
static int volatile once = 0;
ENTERCRITICALSECTION(_CI_CS_);
if (!once) {
INITIALIZECRITICALSECTION(cs);
once = 1;
}
LEAVECRITICALSECTION(_CI_CS_);
ENTERCRITICALSECTION(cs);
if (UnsignedShortArray_c) {
LEAVECRITICALSECTION(cs);
return UnsignedShortArray_c;
}
INHIBIT_THREADER;
NumberArray_initialize();
if (UnsignedShortArray_c) {
ENABLE_THREADER;
LEAVECRITICALSECTION(cs);
return UnsignedShortArray_c;
}
UnsignedShortArray_c = gNewClass(Class, "UnsignedShortArray", 0, 0, NumberArray, END);
cvMethodFor(UnsignedShortArray, vNew, UnsignedShortArray_cvm_vNew, UnsignedShortArray_cfm_vNew);
ivMethodFor(UnsignedShortArray, vCharValue, UnsignedShortArray_ivm_vCharValue, UnsignedShortArray_ifm_vCharValue);
ivMethodFor(UnsignedShortArray, vChangeUShortValue, UnsignedShortArray_ivm_vChangeUShortValue, UnsignedShortArray_ifm_vChangeUShortValue);
ivMethodFor(UnsignedShortArray, vChangeValue, UnsignedShortArray_ivm_vChangeValue, UnsignedShortArray_ifm_vChangeValue);
ivMethodFor(UnsignedShortArray, vLongValue, UnsignedShortArray_ivm_vLongValue, UnsignedShortArray_ifm_vLongValue);
ivMethodFor(UnsignedShortArray, vChangeCharValue, UnsignedShortArray_ivm_vChangeCharValue, UnsignedShortArray_ifm_vChangeCharValue);
ivMethodFor(UnsignedShortArray, vUnsignedShortValue, UnsignedShortArray_ivm_vUnsignedShortValue, UnsignedShortArray_ifm_vUnsignedShortValue);
ivMethodFor(UnsignedShortArray, vChangeDoubleValue, UnsignedShortArray_ivm_vChangeDoubleValue, UnsignedShortArray_ifm_vChangeDoubleValue);
ivMethodFor(UnsignedShortArray, vDoubleValue, UnsignedShortArray_ivm_vDoubleValue, UnsignedShortArray_ifm_vDoubleValue);
ivMethodFor(UnsignedShortArray, vChangeShortValue, UnsignedShortArray_ivm_vChangeShortValue, UnsignedShortArray_ifm_vChangeShortValue);
ivMethodFor(UnsignedShortArray, vChangeLongValue, UnsignedShortArray_ivm_vChangeLongValue, UnsignedShortArray_ifm_vChangeLongValue);
ivMethodFor(UnsignedShortArray, vShortValue, UnsignedShortArray_ivm_vShortValue, UnsignedShortArray_ifm_vShortValue);
init_class();
ENABLE_THREADER;
LEAVECRITICALSECTION(cs);
return UnsignedShortArray_c;
}